home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 080 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 080 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf / c / Taifun80.mod < prev    next >
Text File  |  1988-08-14  |  820b  |  43 lines
  1. MODULE TAIFUN80;
  2.  
  3. FROM InOut IMPORT Write,WriteLn,WriteString,WriteInt,WriteCard;
  4.  
  5. VAR W : CARDINAL;
  6.     
  7. BEGIN
  8.  
  9.   WriteLn;
  10.   WriteLn;
  11.     W := 1;
  12. FOR W:= 0 TO 153 DO
  13.   Write("!");
  14.     END (* FOR *);
  15.  
  16. FOR W:= 1 TO 80 DO
  17.   WriteCard(W,6);
  18.     END (* FOR *);
  19.  
  20. WriteLn;
  21. WriteLn;
  22. WriteString("  TAIFUN Disk's gibt es bisher!!!!!!!!!!!!!!!");
  23. WriteLn;
  24. WriteString("  Alle TAIFUN's und viele andere Public-Domain-Disketten");
  25. WriteLn;
  26. WriteString("  können Sie bestellen beim PD - Versand:");
  27. WriteLn;
  28. WriteString("                 Stefan Ossowski");
  29. WriteLn;
  30. WriteString("                 Veronikastraße 33");
  31. WriteLn;
  32. WriteString("                 4300 Essen 1");
  33. WriteLn;
  34. WriteString("                 Telefon: 0201/788778");
  35. WriteLn; WriteLn;
  36. FOR W:= 0 TO 153 DO 
  37.   Write("¡");
  38.     END;
  39. WriteLn; WriteLn;
  40.  
  41. END TAIFUN80 .
  42.  
  43.